home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP 2.6 / EEE FSP Control / FSP Control next >
Encoding:
Text File  |  1989-08-18  |  16.3 KB  |  362 lines  |  [TEXT/EDIT]
  1. ***
  2. CLEAR
  3. ***
  4. LIST "6"
  5. ***
  6. ADD/FOLDER "HD:Archives"
  7. SAVE "HD:Sections:Message Archives"
  8. ***
  9. CLEAR
  10. ***
  11. DEFINEMACRO "PROCESS"
  12. CLEAR
  13. LOAD "@1" 
  14. PURGE
  15. CHECKPATH/DELETE "HD"
  16. PURGE
  17. SAVE "@1"
  18. ENDMACRO
  19. ***
  20. *
  21. PROCESS "HD:Sections:NEW files"
  22. MOVE "HD:Files:NEW files Folder"
  23. PROCESS "HD:Sections:NEW files" 
  24. SAVE "HD:BU Sections:BU NEW files"
  25. *
  26. PROCESS "HD:Sections:LIBRARY files"
  27. MOVE "HD:Files:LIBRARY files Folder"
  28. PROCESS "HD:Sections:LIBRARY files" 
  29. SAVE "HD:BU Sections:BU LIBRARY files"
  30. *
  31. PROCESS "HD:Sections:BBS files"
  32. MOVE "HD:Files:BBS files Folder"
  33. PROCESS "HD:Sections:BBS files" 
  34. SAVE "HD:BU Sections:BU BBS files"
  35. SORT/DATE
  36. DEFINE "TxtHdr1" "List of BBS files              -   Updated on \Date at \Time"
  37. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  38. DEFINE "TxtHdr3" "____________________________________________________________"
  39. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  40. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  41. SAVETEXT/FORMAT "HD:File Lists:BBS files list"
  42. DEFINE "TxtHdr1" "List of BBS files              -   Updated on \Date at \Time"
  43. DEFINE "TxtHdr2" "____________________________________________________________"
  44. DEFINE "TxtHdr3" "   "
  45. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  46. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  47. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  48. SAVETEXT/FORMAT "HD:File Lists:BBS files list BBS"
  49. *
  50. PROCESS "HD:Sections:APPLE files"
  51. MOVE "HD:Files:APPLE files Folder"
  52. PROCESS "HD:Sections:APPLE files"
  53. SAVE "HD:BU Sections:BU APPLE files"
  54. SORT/DATE
  55. DEFINE "TxtHdr1" "List of all APPLE files        -   Updated on \Date at \Time"
  56. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  57. DEFINE "TxtHdr3" "____________________________________________________________"
  58. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  59. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  60. SAVETEXT/FORMAT "HD:File Lists:APPLE files list"
  61. DEFINE "TxtHdr1" "List of APPLE files            -   Updated on \Date at \Time"
  62. DEFINE "TxtHdr2" "____________________________________________________________"
  63. DEFINE "TxtHdr3" "   "
  64. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  65. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  66. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  67. SAVETEXT/FORMAT "HD:File Lists:APPLE files list BBS"
  68. *
  69. PROCESS "HD:Sections:ART files"
  70. MOVE "HD:Files:ART files Folder"
  71. PROCESS "HD:Sections:ART files"
  72. SAVE "HD:BU Sections:BU ART files"
  73. SORT/DATE
  74. DEFINE "TxtHdr1" "      List of ART files  -  Updated on \Date at \Time"
  75. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  76. DEFINE "TxtHdr3" "____________________________________________________________"
  77. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  78. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  79. SAVETEXT/FORMAT "HD:File Lists:ART files list"
  80. DEFINE "TxtHdr1" "       List of ART files  -  Updated on \Date at \Time"
  81. DEFINE "TxtHdr2" "____________________________________________________________"
  82. DEFINE "TxtHdr3" "   "
  83. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  84. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  85. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  86. SAVETEXT/FORMAT "HD:File Lists:ART files list BBS"
  87. *
  88. PROCESS "HD:Sections:COMM files"
  89. MOVE "HD:Files:COMM files Folder"
  90. PROCESS "HD:Sections:COMM files"
  91. SAVE "HD:BU Sections:BU COMM files"
  92. SORT/DATE
  93. DEFINE "TxtHdr1" "List of COMM files             -   Updated on \Date at \Time"
  94. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  95. DEFINE "TxtHdr3" "____________________________________________________________"
  96. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  97. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  98. SAVETEXT/FORMAT "HD:File Lists:COMM files list"
  99. DEFINE "TxtHdr1" "List of COMM files             -   Updated on \Date at \Time"
  100. DEFINE "TxtHdr2" "____________________________________________________________"
  101. DEFINE "TxtHdr3" "   "
  102. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  103. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  104. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  105. SAVETEXT/FORMAT "HD:File Lists:COMM files list BBS"
  106. *
  107. PROCESS "HD:Sections:INFO files"
  108. MOVE "HD:Files:INFO files Folder"
  109. PROCESS "HD:Sections:INFO files" 
  110. SAVE "HD:BU Sections:BU INFO files"
  111. SORT/DATE
  112. DEFINE "TxtHdr1" "List of INFO files             -   Updated on \Date at \Time"
  113. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  114. DEFINE "TxtHdr3" "____________________________________________________________"
  115. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  116. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  117. SAVETEXT/FORMAT "HD:File Lists:INFO files list"
  118. DEFINE "TxtHdr1" "List of INFO files             -   Updated on \Date at \Time"
  119. DEFINE "TxtHdr2" "____________________________________________________________"
  120. DEFINE "TxtHdr3" "   "
  121. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  122. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  123. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  124. SAVETEXT/FORMAT "HD:File Lists:INFO files list BBS"
  125. *
  126. PROCESS "HD:Sections:DA & FKEY files"
  127. MOVE "HD:Files:DA & FKEY files Folder"
  128. PROCESS "HD:Sections:DA & FKEY files" 
  129. SAVE "HD:BU Sections:BU DA & FKEY files"
  130. SORT/DATE
  131. DEFINE "TxtHdr1" "List of DA & FKEY files        -   Updated on \Date at \Time"
  132. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  133. DEFINE "TxtHdr3" "____________________________________________________________"
  134. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  135. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  136. SAVETEXT/FORMAT "HD:File Lists:DA & FKEY files list"
  137. DEFINE "TxtHdr1" "List of DA & FKEY files        -   Updated on \Date at \Time"
  138. DEFINE "TxtHdr2" "____________________________________________________________"
  139. DEFINE "TxtHdr3" "   "
  140. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  141. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  142. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  143. SAVETEXT/FORMAT "HD:File Lists:DA & FKEY files list BBS"
  144. *
  145. PROCESS "HD:Sections:FONT files"
  146. MOVE "HD:Files:FONT files Folder"
  147. PROCESS "HD:Sections:FONT files" 
  148. SAVE "HD:BU Sections:BU FONT files"
  149. SORT/DATE
  150. DEFINE "TxtHdr1" "List of FONT files             -   Updated on \Date at \Time"
  151. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  152. DEFINE "TxtHdr3" "____________________________________________________________"
  153. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  154. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  155. SAVETEXT/FORMAT "HD:File Lists:FONT files list"
  156. DEFINE "TxtHdr1" "List of FONT files             -   Updated on \Date at \Time"
  157. DEFINE "TxtHdr2" "____________________________________________________________"
  158. DEFINE "TxtHdr3" "   "
  159. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  160. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  161. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  162. SAVETEXT/FORMAT "HD:File Lists:FONT files list BBS"
  163. *
  164. PROCESS "HD:Sections:GAME files"
  165. MOVE "HD:Files:GAME files Folder"
  166. PROCESS "HD:Sections:GAME files" 
  167. SAVE "HD:BU Sections:BU GAME files"
  168. SORT/DATE
  169. DEFINE "TxtHdr1" "List of GAME files             -   Updated on \Date at \Time"
  170. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  171. DEFINE "TxtHdr3" "____________________________________________________________"
  172. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  173. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  174. SAVETEXT/FORMAT "HD:File Lists:GAME files list"
  175. DEFINE "TxtHdr1" "List of GAME files             -   Updated on \Date at \Time"
  176. DEFINE "TxtHdr2" "____________________________________________________________"
  177. DEFINE "TxtHdr3" "   "
  178. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  179. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  180. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  181. SAVETEXT/FORMAT "HD:File Lists:GAME files list BBS"
  182. *
  183. PROCESS "HD:Sections:INIT & CDEV files"
  184. MOVE "HD:Files:INIT & CDEV files Folder"
  185. PROCESS "HD:Sections:INIT & CDEV files" 
  186. SAVE "HD:BU Sections:BU INIT & CDEV files"
  187. SORT/DATE
  188. DEFINE "TxtHdr1" "List of INIT & CDEV files      -   Updated on \Date at \Time"
  189. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  190. DEFINE "TxtHdr3" "____________________________________________________________"
  191. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  192. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  193. SAVETEXT/FORMAT "HD:File Lists:INIT & CDEV files list"
  194. DEFINE "TxtHdr1" "List of INIT & CDEV files      -   Updated on \Date at \Time"
  195. DEFINE "TxtHdr2" "____________________________________________________________"
  196. DEFINE "TxtHdr3" "   "
  197. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  198. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  199. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  200. SAVETEXT/FORMAT "HD:File Lists:INIT & CDEV files list BBS"
  201. *
  202. PROCESS "HD:Sections:SOUND files"
  203. MOVE "HD:Files:SOUND files Folder"
  204. PROCESS "HD:Sections:SOUND files"
  205. SAVE "HD:BU Sections:BU SOUND files"
  206. SORT/DATE
  207. DEFINE "TxtHdr1" "List of SOUND files    -   Updated on \Date at \Time"
  208. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  209. DEFINE "TxtHdr3" "____________________________________________________________"
  210. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  211. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  212. SAVETEXT/FORMAT "HD:File Lists:SOUND files list"
  213. DEFINE "TxtHdr1" "List of SOUND files            -   Updated on \Date at \Time"
  214. DEFINE "TxtHdr2" "____________________________________________________________"
  215. DEFINE "TxtHdr3" "   "
  216. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  217. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  218. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  219. SAVETEXT/FORMAT "HD:File Lists:SOUND files list BBS"
  220. *
  221. PROCESS "HD:Sections:STACK files"
  222. MOVE "HD:Files:STACK files Folder"
  223. PROCESS "HD:Sections:STACK files"
  224. SAVE "HD:BU Sections:BU STACK files"
  225. SORT/DATE
  226. DEFINE "TxtHdr1" "List of STACK files    -   Updated on \Date at \Time"
  227. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  228. DEFINE "TxtHdr3" "____________________________________________________________"
  229. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  230. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  231. SAVETEXT/FORMAT "HD:File Lists:STACK files list"
  232. DEFINE "TxtHdr1" "List of STACK files            -   Updated on \Date at \Time"
  233. DEFINE "TxtHdr2" "____________________________________________________________"
  234. DEFINE "TxtHdr3" "   "
  235. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  236. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  237. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  238. SAVETEXT/FORMAT "HD:File Lists:STACK files list BBS"
  239. * 
  240. PROCESS "HD:Sections:TOOL files"
  241. MOVE "HD:Files:TOOL files Folder"
  242. PROCESS "HD:Sections:TOOL files" 
  243. SAVE "HD:BU Sections:BU TOOL files"
  244. SORT/DATE
  245. DEFINE "TxtHdr1" "List of all TOOL files         -   Updated on \Date at \Time"
  246. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  247. DEFINE "TxtHdr3" "____________________________________________________________"
  248. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  249. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  250. SAVETEXT/FORMAT "HD:File Lists:TOOL files list"
  251. DEFINE "TxtHdr1" "List of TOOL files             -   Updated on \Date at \Time"
  252. DEFINE "TxtHdr2" "____________________________________________________________"
  253. DEFINE "TxtHdr3" "   "
  254. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  255. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  256. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  257. SAVETEXT/FORMAT "HD:File Lists:TOOL files list BBS"
  258. * 
  259. PROCESS "HD:Sections:SYSOP files"
  260. MOVE "HD:Files:SYSOP files Folder"
  261. PROCESS "HD:Sections:SYSOP files" 
  262. SAVE "HD:BU Sections:BU SYSOP files"
  263. SORT/DATE
  264. DEFINE "TxtHdr1" "List of SYSOP files            -   Updated on \Date at \Time"
  265. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  266. DEFINE "TxtHdr3" "____________________________________________________________"
  267. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  268. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  269. SAVETEXT/FORMAT "HD:File Lists:SYSOP files list"
  270. DEFINE "TxtHdr1" "List of SYSOP files            -   Updated on \Date at \Time"
  271. DEFINE "TxtHdr2" "____________________________________________________________"
  272. DEFINE "TxtHdr3" "   "
  273. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  274. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  275. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  276. SAVETEXT/FORMAT "HD:File Lists:SYSOP files list BBS"
  277. * 
  278. PROCESS "HD:Sections:ARCHIE files"
  279. MOVE "HD:Files:ARCHIE files Folder"
  280. PROCESS "HD:Sections:ARCHIE files" 
  281. SAVE "HD:BU Sections:BU ARCHIE files"
  282. SORT/DATE
  283. DEFINE "TxtHdr1" "List of ARCHIE files           -   Updated on \Date at \Time"
  284. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  285. DEFINE "TxtHdr3" "____________________________________________________________"
  286. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  287. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  288. SAVETEXT/FORMAT "HD:File Lists:ARCHIEFILES"
  289. DEFINE "TxtHdr1" "List of ARCHIE files           -   Updated on \Date at \Time"
  290. DEFINE "TxtHdr2" "____________________________________________________________"
  291. DEFINE "TxtHdr3" "   "
  292. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  293. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  294. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  295. SAVETEXT/FORMAT "HD:File Lists:ARCHIEFILES BBS"
  296. ***
  297. ***
  298. ***
  299. CLEAR
  300. ADD "HD:Sections:APPLE files"
  301. ADD "HD:Sections:BBS files"
  302. ADD "HD:Sections:ART files"
  303. ADD "HD:Sections:COMM files"
  304. ADD "HD:Sections:INFO files"
  305. ADD "HD:Sections:DA & FKEY files"
  306. ADD "HD:Sections:FONT files"
  307. ADD "HD:Sections:GAME files"
  308. ADD "HD:Sections:INIT & CDEV files"
  309. ADD "HD:Sections:SOUND files"
  310. ADD "HD:Sections:STACK files"
  311. ADD "HD:Sections:TOOL files"
  312. ADD "HD:Sections:SYSOP files"
  313. SORT/DATE
  314. ***
  315. ***
  316. DEFINE "TxtHdr1" "  List of all files available - Updated on \Date at \Time"
  317. DEFINE "TxtHdr2" "____________________________________________________________"
  318. DEFINE "TxtHdr3" "   "
  319. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  320. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  321. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  322. SAVETEXT/FORMAT "HD:File Lists:FILES BBS"
  323. ***
  324. DEFINE "TxtHdr1" "  List of all files available - Updated on \Date at \Time"
  325. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  326. DEFINE "TxtHdr3" "____________________________________________________________"
  327. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  328. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  329. SAVETEXT/FORMAT "HD:File Lists:FILES"
  330. ***
  331. ***
  332. DELETE/AGE ">10"
  333. PURGE
  334. ***
  335. SAVE "HD:Sections:10 day files"
  336. SAVE "HD:BU Sections:BU 10 day files"
  337. ***
  338. DEFINE "TxtHdr1" "Files added in the last 10 days -  Updated on \Date at \Time"
  339. DEFINE "TxtHdr2" "____________________________________________________________"
  340. DEFINE "TxtHdr3" "   "
  341. FORMAT "COL:3+'Listed as:'+TI+COL:30+'Actual name:'+NAME:CR"
  342. FORMAT "+COL:8+'Size:'+SIZEK+COL:30+'Uploaded by:'+UPL:CR"
  343. FORMAT "+COL:8+'Date:'+DA+COL:36+'Where:'+SE:CR+0+DESCA"
  344. SAVETEXT/FORMAT "HD:File Lists:NEWFILES BBS"
  345. ***
  346. DEFINE "TxtHdr1" "Files added in the last 10 days -  Updated on \Date at \Time"
  347. DEFINE "TxtHdr2" "EEE's BBS  Clifton,NJ  201-340-3531  RRH/HST/MAC (1:107/563)"
  348. DEFINE "TxtHdr3" "____________________________________________________________"
  349. FORMAT "COL:3+'Actual name:'+NAME+COL:49+'Size:'+SIZEK:CR"
  350. FORMAT "+COL:10+'Date:'+DA+COL:42+'Uploaded by:'+UPL:CR+0+DESCA"
  351. SAVETEXT/FORMAT "HD:File Lists:NEWFILES"
  352. ***
  353. DEFINE "TxtHdr1" "  New files added within the last 10 days -  Updated on \Date at \Time"
  354. DEFINE "TxtHdr2" "  Choose N>ew files from the File menu for more info about these files"
  355. DEFINE "TxtHdr3" "  "
  356. FORMAT "COL:3+NAME+COL:32+SIZEK+COL:39+DA+COL:51+UPL"
  357. SAVETEXT/FORMAT "HD:BBS:System2.MSG"
  358. ***
  359. LAUNCH "HD:BBS:Red Ryder Host"
  360. ***
  361. END
  362.